home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-demo 9 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  360 b   |  20 lines
  1. 1 rem turtle-demo: 'patterns'
  2. 2 rem n. heusler 11.91
  3. 3 :
  4. 10 sys49152
  5. 20 !graphics
  6. 30 x=0:y=0
  7. 110 i=i+1
  8. 120 !pen0:!movex,y:x=x+1:y=y+1:!angle270:!mode1
  9. 121 m=0:forj=0to7:l=0:k=rnd(ti):ifk<i/100thenl=1
  10. 122 m=m+l*2^j:next
  11. 130 !patternm
  12. 140 !walk320-i*2:ifi=100then:!finish
  13. 150 !turnr90
  14. 160 !walk200-i*2
  15. 170 !turnr90
  16. 180 !walk320-i*2
  17. 190 !turnr90
  18. 200 !walk199-i*2
  19. 210 goto110
  20.